/*
 )J1996 Ray Rischpater
 All Rights Reserved.
 dove@lothlorien.com
 This program is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License 
 as published by the Free Software Foundation; either 
 version 2 of the License, or (at your option) any later 
 version.
 
 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 GNU General Public License for more details.
 You should have received a copy of the GNU General Public 
 License along with this program; if not, write to the Free 
 Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, 
 USA. 
 
*/
 
 InstallScript:=func(inPartFr, inFrameFr)
 begin
 	if HasSlot(GetRoot(),'|nHTTPd:ALLPEN|) then
 	begin
 		GetRoot().|nHTTPd:ALLPEN|:RegTranslator(kAppSymbol,
 			"/personal/",
 			{
 				_parent: nil,
 				CompletionScript: func(inEp, inData, inErr)
 				begin
 					PlaySoundSync(ROM_funbeep);
					inEp:Output("Plink!" & unicodeLF , nil, nil);
					inEp:Close();
				end,
 			});
 	end
 	else
 	begin
 		GetRoot():Notify(kNotifyAlert, "Personal Server",
 			"nHTTPd is not currently installed.");
 	end
 end;
 
 RemoveScript:=func(inPartFr)
 begin
  	if HasSlot(GetRoot(),'|nHTTPd:ALLPEN|) then
 	begin
 		GetRoot().|nHTTPd:ALLPEN|:UnRegTranslators(kAppSymbol);
 	end
 end;